home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD6437652000.psc / Chat Client & Chat Server / Chat Client / Process.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  2000-05-13  |  2.4 KB  |  85 lines
  1. VERSION 5.00
  2. Begin VB.Form Form4 
  3.    BackColor       =   &H00C00000&
  4.    BorderStyle     =   4  'Fixed ToolWindow
  5.    Caption         =   "Process Manager"
  6.    ClientHeight    =   4530
  7.    ClientLeft      =   45
  8.    ClientTop       =   285
  9.    ClientWidth     =   7890
  10.    Icon            =   "Process.frx":0000
  11.    LinkTopic       =   "Form5"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   4530
  15.    ScaleWidth      =   7890
  16.    ShowInTaskbar   =   0   'False
  17.    StartUpPosition =   2  'CenterScreen
  18.    Begin VB.CommandButton Command2 
  19.       BackColor       =   &H0080C0FF&
  20.       Caption         =   "&Close"
  21.       Height          =   255
  22.       Left            =   4080
  23.       Style           =   1  'Graphical
  24.       TabIndex        =   3
  25.       Top             =   4200
  26.       Width           =   1095
  27.    End
  28.    Begin VB.TextBox Text1 
  29.       Height          =   285
  30.       Left            =   120
  31.       Locked          =   -1  'True
  32.       MultiLine       =   -1  'True
  33.       ScrollBars      =   2  'Vertical
  34.       TabIndex        =   2
  35.       Top             =   120
  36.       Visible         =   0   'False
  37.       Width           =   7695
  38.    End
  39.    Begin VB.CommandButton Command1 
  40.       BackColor       =   &H0080C0FF&
  41.       Caption         =   "&Refresh"
  42.       Height          =   255
  43.       Left            =   2880
  44.       Style           =   1  'Graphical
  45.       TabIndex        =   1
  46.       Top             =   4200
  47.       Width           =   1095
  48.    End
  49.    Begin VB.ListBox List1 
  50.       BackColor       =   &H00000000&
  51.       ForeColor       =   &H0000FF00&
  52.       Height          =   3960
  53.       Left            =   120
  54.       TabIndex        =   0
  55.       Top             =   120
  56.       Width           =   7695
  57.    End
  58. Attribute VB_Name = "Form4"
  59. Attribute VB_GlobalNameSpace = False
  60. Attribute VB_Creatable = False
  61. Attribute VB_PredeclaredId = True
  62. Attribute VB_Exposed = False
  63. Private Sub Command1_Click()
  64. Send "CloseAPP
  65. End Sub
  66. Private Sub Command2_Click()
  67. Unload Form4
  68. End Sub
  69. Private Sub Form_Load()
  70. Send "CloseAPP
  71. End Sub
  72. Private Sub List1_DblClick()
  73. Send "CloseAPP" + List1.List(List1.ListIndex)
  74. End Sub
  75. Private Sub Text1_Change()
  76. List1.Clear
  77. On Error GoTo skip
  78. Foundpos = 1
  79. For i = 0 To Len(Text1) / 3
  80. Foundpos1 = InStr(Foundpos, Text1, Chr$(13))
  81. List1.AddItem Mid(Text1, Foundpos, Foundpos1 - Foundpos), i
  82. Foundpos = Foundpos + (Foundpos1 - Foundpos) + 1
  83. skip:
  84. End Sub
  85.